(url-register-auth-scheme): Fix `format' call.

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index e730a73eee342cae854ee67011b4880bfffa470f..5d9b9ab945cb138ae6796994c75303ffbcc8849f 100644 (file)
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -298,9 +298,9 @@ RATING   a rating between 1 and 10 of the strength of the authentication.
         (node (assoc type url-registered-auth-schemes)))
     (if (not (fboundp function))
        (url-warn 'security
-                 (format (eval-when-compile
-                           "Tried to register `%s' as an auth scheme"
-                           ", but it is not a function!") function)))
+                 (format (concat
+                          "Tried to register `%s' as an auth scheme"
+                          ", but it is not a function!") function)))
 
     (if node
        (setcdr node (cons function rating))